home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).do / FIDGETS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  869b  |  20 lines
  1. 5  REM WRITTEN 1982 BY PR ZACHEIS
  2. 10 PZ = 10:T = 0
  3. 15  HGR : HOME : HTAB 17: VTAB 22: FLASH : PRINT "FIDGETS"
  4. 20  POKE 230,64: HCOLOR= 3: HPLOT 0,0: CALL 62454
  5. 25  FOR P = 1 TO 3000: NEXT P
  6. 30  POKE  -16300,0: POKE 230,32: POKE  -16302,0: HCOLOR= 3: HPLOT 0,0: CALL 62454: HCOLOR= 0
  7. 35  NORMAL 
  8. 40  POKE  -16299,0: POKE 230,32: GOSUB 1000: POKE  -16300,0: POKE 230,64: GOSUB 1000
  9. 50  POKE  -16300,0
  10. 53  FOR P = 0 TO 1: NEXT P
  11. 55  POKE  -16299,0
  12. 56 T = T +1: IF T = 350  THEN 70
  13. 60  GOTO 50
  14. 70  TEXT : HOME : HTAB 7: VTAB 10: PRINT "I THINK IT'S YOUR EYES...."
  15. 75  END 
  16. 1000 PZ = PZ -1
  17. 1010  FOR X = O TO 279  STEP PZ:Y = 0: HPLOT 138,95 TO X,Y: NEXT X
  18. 1020  FOR Y = 0 TO 191  STEP PZ:X = 279: HPLOT 138,95 TO X,Y: NEXT Y
  19. 1030  FOR X = 279 TO 0  STEP  -PZ:Y = 191: HPLOT 138,95 TO X,Y: NEXT X
  20. 1040  FOR Y = 191 TO 0  STEP  -PZ:X = 0: HPLOT 138,95 TO X,Y: NEXT Y: RETURN